# Usage: brazilian.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile brazilian.ps 
	mapFile brazilian.map
	title "diplomacy map (brazilian variant)"
	images {
		chart {brazilian.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25 CANAL {Seawater stroke}}} LandBrown {}}
		coordinates {brazilian.base.ps {scan {} {provinces INFO supplies TLA powers COUNTRY}} {} {}}
	}
	borders {
		land {image {chart {LandBrown Brown}} LandBrown Border}
		internalBorders {image {chart Black} {} InternalBorder}
		borders {image {chart BorderBlack} {} NationalBorder}
		mountain {image {chart Grey} MountainGrey NationalBorder}
		lake {image {chart Blue} SeaBlue Border} 
		canal {image {chart Seawater} {} NationalBorder {SeaBlue 4}}
	}
}
